home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / environment < prev    next >
Text File  |  2002-09-18  |  6KB  |  143 lines
  1. #$EPIC: environment,v 1.3 2002/08/12 16:59:49 jnelson Exp $
  2. #
  3. # A NEW ENVIRONMENT (C) 1993
  4. # Written by Jeremy Nelson (jnelson@acronet.net)
  5. #
  6. # **************** New environment ***************************
  7. alias howlong @ function_return = tdiff(${time()-[$0]})
  8. alias now @ function_return = strftime(%T)
  9. alias tia @ function_return = A?[<$now()>]:[]
  10.  
  11. on ^msg * {
  12.     if (msgrecv[$encode($0)] != userhost()) 
  13.     {
  14.         @ msgrecv[$encode($0)] = userhost()
  15.         echo msg from $0!$userhost(): $1- $tia()
  16.     }
  17.     {
  18.         echo msg from $0: $1- $tia()
  19.     }
  20. }
  21.  
  22. on ^dcc_chat * echo \($0\): $1- $tia()
  23. on ^notice * echo -$0\- $1-
  24. on ^public * echo <$0> $2- $tia()
  25. on ^public_other * echo $1 <$0> $2- $tia()
  26. on ^send_msg * echo -> \($0\) $1-
  27. on ^send_dcc_chat * echo DCC -> \($0\) $1-
  28. on ^send_notice * echo -> \($0\) $1-
  29. on ^send_public * echo -> \($0\) $1-
  30. on ^join * {
  31.         if (rejoin == 1) {
  32.         (rejoin = [])
  33.         } elsif (iscurchan($1)) {
  34.         echo *** join $1: \($0 - $2\) $now()
  35.     } else {
  36.         echo *** join $1: \($0 - $2\) $now()
  37.         }
  38. }
  39. on ^mode * echo *** Mode Change for $1 by $0: $2-
  40. on ^leave * echo *** Leaving $1: \($0\) $now()
  41. on ^channel_signoff * echo *** Quit: $1 \($0, $2-\) $now()
  42. on ^kick * {
  43.     if ([$0] == N) {
  44.         echo *** You have been kicked off channel $2 by $1 \($3-\) $now()
  45.     } {
  46.         echo *** $0 has been kicked off channel $2 by $1 \($3-\) $now()
  47.     }
  48. }
  49. on ^action * {
  50.         if (iscurchan($1)) {
  51.                 echo :Action: \($1\) $0 $2- $tia()
  52.         } {
  53.                 echo $1 :Action: \($1\) $0 $2- $tia()
  54.         }
  55. }
  56. on ^send_action * echo :Action: \($0\) $N $1-
  57. on ^ctcp_reply * echo CTCP from $0. $1: $2- $tia()
  58. on -ctcp_reply "% PING *" comment
  59. on ^invite * echo *** Invitation to $1 received from $0 $now().
  60. on ^topic * echo *** topic The topic on $1 is now $2- \($0\) $now()
  61. on ^notify_signoff * echo NOTIFY $0 signed OFF [$now()]
  62. set notify_userhost_automatic on
  63. on ^notify_signon * {echo NOTIFY $0 \($1\) signed ON [$now()];Addnick $0}
  64.  
  65. on -dcc_request "% SEND *" {
  66.       push dccgets $0
  67.       echo DCC $0 has offered you a file. $now()
  68.       echo DCC Press <CONTROL>-F to get this file.
  69. }
  70. on -dcc_request "% CHAT *" {
  71.       push dccchats $0
  72.       echo DCC $0 wants to talk to you privately. $now()
  73.       echo DCC Press <ESC>-F to respond to $0.
  74. }
  75. bind ^f parse_command dcc get $pop(dccgets)
  76. bind ^[f parse_command dcc chat $pop(dccchats)
  77. on ^256 * echo ADMIN $1-
  78. on ^257 * echo ADMIN $1-
  79. on ^258 * echo ADMIN $1-
  80. on ^259 * echo ADMIN $1-
  81. on ^301 * echo AWAY  $0 is away: $1-
  82. on ^311 * echo WHOIS $1 is $2@$3, \($5-\)
  83. on ^312 * echo WHOIS $1 is on $2-
  84. on ^313 * echo WHOIS $1-
  85. on ^314 * echo WHOWAS $1 was $2@$3 \($5-\)
  86. on ^317 * echo WHOIS $1: Idle - \($tdiff($2)\), On for $howlong($3)
  87. on ^318 * echo END OF LIST
  88. on ^319 * echo WHOIS $1 is on channels $2-
  89. on ^324 * echo MODE The channel mode for $1 is $2-
  90. on ^331 * echo TOPIC Channel $1 does not have a topic
  91. on ^332 * echo TOPIC The topic for $1 is $2-
  92. on ^333 * echo TOPIC The topic has been set for $howlong($3) \($2\)
  93. on ^341 * echo INVITE Inviting $1 to $2
  94. on ^342 * echo SUMMON Summoning $1 to IRC
  95. on ^351 * echo VERSION $*
  96. on ^364 * echo LINKS [$[2]3] [$[25]1] [$[35]4-]
  97. on ^365 * echo END OF LIST;echo 
  98. on ^367 * echo BANS [$[11]1] [$[30]2] [$[10]3] [$[10]howlong($4)]
  99. on ^369 * echo END OF LIST 
  100. on ^381 * echo OPER You are now an IRC operator
  101. on ^382 * echo REHASH Re-reading the ircd.conf file now.
  102. on ^385 * echo DEOP You are no longer an operator
  103. on ^386 * echo *** Error: You are not allowed to use operator commands.
  104. on ^391 * echo TIME At the tone, the time is: $2-
  105. on ^393 * echo USERS $*
  106. on ^401 * echo WHOIS $1 is not on IRC
  107. on ^402 * echo SERVER The server $1 does not exist
  108. on ^403 * echo MODE The channel $1 does not exist
  109. on ^404 * echo MODE You need ops to send to channel \($1\) [From $0]
  110. on ^405 * echo JOIN You cant join that many channels!
  111. on ^406 * echo WHOWAS $1 has not been on recently
  112. on ^407 * echo MSG You arent allowed to send to that many targets
  113. on ^408 * echo SERVER The server $1 does not exist
  114. on ^411 * echo MSG Who do you want me to send this to?
  115. on ^412 * echo MSG You have not specified anything to send
  116. on ^413 * echo MSG You havent specified a top level for the domain.
  117. on ^414 * echo MSG You cant send a msg with a wildcard in the domain.
  118. on ^421 * echo ERROR I dont recognize that command
  119. on ^431 * echo MSG You did not specify a nickname to send to
  120. on ^432 * echo NICK That is not a valid nickname!
  121. on ^433 * echo NICK The nickname \'$0\' is already in use
  122. on ^436 * echo ERROR Sorry, your nick is already in use.
  123. on ^441 * echo KICK $0 is not on this channel
  124. on ^442 * echo ERROR You are not on channel $1
  125. on ^443 * echo INVITE No need to invite, $1 is already here!
  126. on ^444 * echo SUMMON $1 is not logged in now. \(from $0\)
  127. on ^445 * echo SUMMON You can't summon someone no that machine
  128. on ^446 * echo USERS You cant do that command: it is turned off
  129. on ^461 * echo ERROR That command requires more arguments
  130. on ^464 * echo ERROR You have entered an incorrect password
  131. on ^465 * echo NOTICE You are banned from this server \(from $0\)
  132. on ^465 * echo NOTICE You are now K-lined
  133. on ^471 * echo JOIN $1 has a maximum limit, and is full
  134. on ^472 * echo MODE The mode change $1 is unknown to me
  135. on ^473 * echo JOIN Sorry, you need an invitation to join channel $1
  136. on ^474 * echo JOIN Sorry, you are banned from channel $1
  137. on ^475 * echo JOIN Sorry, that channel key is wrong.
  138. on ^476 * echo JOIN Hmmm. i dont like the looks of that channel name.
  139. on ^481 * echo ERROR You need to be an IRC operator to do that
  140. on ^482 * echo ERROR You need to be an channel operator to do that [from $0]
  141. on ^483 * echo KILL You cant kill a server, silly!
  142. on ^501 * echo UMODE You can't change your umode: $1-
  143.